library(tidyverse)
library(lubridate)
library(forecast)
library(ggrepel)
library(rvest)
library(plotly)
library(xtable)

dja <- read_csv("data/DJA.csv",skip = 4)
gold <- read_csv("data/GOLD_1791-2018.csv",skip = 3)
interest_rate <- read_csv("data/INTERESTRATE_1857-2018.csv",skip = 1)
sap <- read_csv("data/SAP_1871-2018.csv", skip=1)
cpi <- read_csv("data/USCPI_1774-2018.csv", skip=4)
gdp <- read_csv("data/USGDP_1790-2018.csv", skip=2)
wage <- read_csv("data/USWAGE_1774-2018.csv", skip=3)
gdp_uk <-  read_csv("data/UKGDP_1700-2017.csv", skip=1)
brit_gold <- read_csv("data/GOLD_brit_1257-1945.csv", skip=1)
gold_london <- read_csv("data/GOLD_london_1718-2017.csv", skip = 1)

dja <- dja %>% 
  mutate(Date = parse_date_time(Date,orders = "mdy"))
ggplotly(ggplot(dja,aes(Date, DJIA))+
  geom_line()) %>% 
  layout(legend = list(
      orientation = "h"))

summary(dja)

      Date                          DJIA         
 Min.   :1885-05-02 00:00:00   Min.   :   24.36  
 1st Qu.:1916-02-09 06:00:00   1st Qu.:   70.41  
 Median :1946-10-14 12:00:00   Median :  199.28  
 Mean   :1949-03-11 07:36:39   Mean   : 2354.03  
 3rd Qu.:1982-06-06 06:00:00   3rd Qu.: 1002.07  
 Max.   :2018-09-10 00:00:00   Max.   :26616.71  

dja %>% 
  mutate(dif = (DJIA - lag(DJIA, default = DJIA[1]))/lag(DJIA, default = DJIA[1])) %>% 
ggplot(.,aes(Date, dif))+
  geom_rect(fill="firebrick", 
            xmin=parse_date_time("01-01-1930",orders = "mdy"),
            xmax=parse_date_time("01-01-1940",orders = "mdy"),
            ymin=-1,
            ymax=1,
            alpha=0.5)+
    geom_line()

url <- "https://www.caproasia.com/2016/04/12/economic-crisis-since-1900-2015/"
crisis <- url %>%
  read_html() %>% 
  html_nodes(css = 'table') %>% 
  html_table(header = T)
crisis <- crisis[[1]] %>% 
  filter(Affected %in% c("United States","Global")) %>% 
  separate(Period,c("desde","hasta")," – ")

Expected 2 pieces. Missing pieces filled with `NA` in 10 rows [1, 4, 5, 6, 7, 8, 9, 10, 11, 12].

#en realidad las que terminan en "s" no duran toda la década. Las agrego a mano.
  # mutate(hasta = parse_date_time(case_when(grepl("s",desde)~as.numeric(str_extract(desde,"[[:digit:]]*"))+10,
  #                          TRUE~ as.numeric(hasta)),"y"),
  #        desde = parse_date_time(str_extract(desde,"[[:digit:]]*"),"y"))
crisis <- crisis %>% 
  mutate(hasta = parse_date_time(case_when(desde=="1970s"~"1979",
                           desde=="1980s"~"1982",
                           desde == "1990s"~"1991",
                           TRUE~hasta),"y"),
         desde = parse_date_time(case_when(desde=="1970s"~"1973",
                           desde=="1980s"~"1981",
                           desde=="1990s"~"1990",
                           TRUE~desde),"y"))

# tabla <- crisis[[1]] %>% 
#   filter(Affected %in% c("United States","Global")) %>% 
#   select(-Region, - Affected) %>% 
#   xtable(.)
#En la consola
# print(tabla, include.rownames = F)

crisis_largas <- na.omit(crisis)
crisis_puntuales <- crisis %>% 
  filter(is.na(hasta))
dja <- dja %>% 
  mutate(dif = (DJIA - lag(DJIA, default = DJIA[1]))/lag(DJIA, default = DJIA[1])) 
ggplot()+
  geom_rect(data= crisis_largas, 
            aes(xmin=crisis_largas$desde,
            xmax=crisis_largas$hasta),
            fill="firebrick", 
            ymin=-1,
            ymax=1,
            alpha=0.5)+
    geom_line(data = dja,aes(Date, dif))+
  geom_vline(data=crisis_puntuales, aes(xintercept=desde), color = "red", linetype="dashed")

NA

gold %>% 
  ggplot(., aes(Year, `New York Market Price (U.S. dollars per fine ounce)`))+
  geom_line(size=1)+
  geom_vline(xintercept = 1971, color = "red")+
  geom_label_repel(data=data_frame(),aes(x=1971,y=1000,label="Fin del patrón oro"),nudge_x = -5,force=10,size=7)+
  theme_minimal()+
  labs(y="Dólares por onza de oro", x="Año", title="Precios del oro por onza en el mercado de Nueva York")+
  theme(text = element_text(size = 20))
ggsave("plots/oro.png", dpi=300, width = 10, height = 7, scale=1)

graf <- interest_rate %>% 
  gather(type,rate,2:4) %>% 
  ggplot(., aes(Year,rate,color=type))+
  geom_line()+
  guides(color=guide_legend(nrow=2,byrow=TRUE))+
  theme(legend.position = "bottom")
ggplotly(graf) %>%
  layout(legend = list(
      orientation = "h"
    )
  )

sap %>% 
  summary()

      Year      The S&P Index Average for January  Annual Yield  
 Min.   :1871   Min.   :   3.240                  Min.   :1.140  
 1st Qu.:1908   1st Qu.:   7.433                  1st Qu.:3.310  
 Median :1944   Median :  16.430                  Median :4.500  
 Mean   :1944   Mean   : 261.888                  Mean   :4.356  
 3rd Qu.:1981   3rd Qu.: 122.058                  3rd Qu.:5.390  
 Max.   :2018   Max.   :2791.730                  Max.   :8.710  
                                                  NA's   :1      
 The Accumulated S&P Index Average for January
 Min.   :     1.0                             
 1st Qu.:    11.5                             
 Median :   122.0                             
 Mean   : 21442.8                             
 3rd Qu.:  5360.0                             
 Max.   :298189.7                             
                                              

sap %>% 
  gather(type, value,2:4) %>%
  mutate(type= case_when(type=="The S&P Index Average for January"~"The S&P Index\nAverage for January",
                         type=="The Accumulated S&P Index Average for January"~"The Accumulated S&P\nIndex Average for January",
                         TRUE~type)) %>% 
  ggplot(.,aes(Year,value, color=type))+
  geom_line()+
  facet_grid(type~.,scale="free")+
  theme(legend.position = "bottom",
        strip.text.y = element_text(angle = 0))

ts(sap$`Annual Yield`, start=min(sap$Year), frequency = 1) %>% 
  na.omit() %>%
  auto.arima(.)

Series: . 
ARIMA(0,1,2) 

Coefficients:
          ma1      ma2
      -0.0141  -0.3007
s.e.   0.0802   0.0810

sigma^2 estimated as 0.4111:  log likelihood=-141.37
AIC=288.73   AICc=288.9   BIC=297.68

cpi %>% 
  ggplot(., aes(Year, `U.S. Consumer Price Index *`))+
  geom_line(size=1)+
  geom_vline(xintercept = 1971, color = "red")+
  geom_label_repel(data=data_frame(),aes(x=1971,y=100,label="Fin del patrón oro"),nudge_x = -5,force=10,size=7)+
  theme_minimal()+
  labs(y="IPC", x="Año")+
  theme(text = element_text(size = 20))
ggsave("plots/cpi_orig.png", scale = 1)

Saving 7.29 x 4.5 in image

gdp %>% 
  ggplot(., aes(Year, `Real GDP (millions of 2012 dollars)`))+
  geom_line(size=1)+
  # geom_vline(xintercept = 1971, color = "red")+
  # geom_label_repel(data=data_frame(),aes(x=1971,y=100,label="Fin del patrón oro"),nudge_x = -5,force=10,size=7)+
  theme_minimal()+
  labs(y="Real GDP", x="Año")+
  theme(text = element_text(size = 30))
ggsave("plots/PBI.png", scale = 1)

Saving 7.29 x 4.5 in image

gdp <- left_join(gold, gdp, by = "Year") %>% 
  mutate(gdp_in_gold = `Nominal GDP per capita (current dollars)`/`New York Market Price (U.S. dollars per fine ounce)`,
         Year = parse_date_time(Year,"y")) 
  
ggplotly(ggplot(gdp,aes(Year,gdp_in_gold))+
  geom_line())

library(scales) # to access breaks/formatting functions
ggplot()+
geom_rect(data= crisis_largas, 
            aes(xmin=crisis_largas$desde,
            xmax=crisis_largas$hasta),
            fill="firebrick", 
            ymin=-Inf,
            ymax=Inf,
            alpha=0.5)+
  geom_line(size=1,
    data = gdp %>% 
              filter(Year>parse_date_time(1900,"y"))
            ,aes(Year, gdp_in_gold))+
  geom_vline(data=crisis_puntuales, aes(xintercept=desde), color = "red", linetype="dashed")+
  geom_vline(xintercept = parse_date_time(1971,"y"),color = "gold")+ #fin del patron oro
  scale_x_datetime(date_breaks = "15 years",labels = date_format("%Y") )+  
  theme_minimal()+
  labs(x="", y="PBI en oro", title="PBI Estados Unidos",
       subtitle= "Millones de onzas de oro, 1900-2017")+
  theme(text = element_text(size = 20))
ggsave("plots/gdp_in_gold_eda.PNG", dpi = 300, width = 10,height = 6)

wage %>% 
  summary()

      Year      Costs of Unskilled Labor (index 1860 = 100)
 Min.   :1774   Min.   :   31.00                           
 1st Qu.:1835   1st Qu.:   79.65                           
 Median :1896   Median :  143.50                           
 Mean   :1896   Mean   : 2499.49                           
 3rd Qu.:1956   3rd Qu.: 1682.75                           
 Max.   :2017   Max.   :19640.40                           
                                                           
 Production Workers Hourly Compensation (nominal dollars)
 Min.   : 0.020                                          
 1st Qu.: 0.060                                          
 Median : 0.150                                          
 Mean   : 3.906                                          
 3rd Qu.: 2.555                                          
 Max.   :32.390                                          
 NA's   :16                                              

ggplotly(
wage %>% 
  left_join(cpi,by="Year") %>% 
  na.omit() %>% 
  mutate(salario_horario_real = `Production Workers Hourly Compensation (nominal dollars)`/`U.S. Consumer Price Index *`) %>% 
  ggplot(.,aes(Year,salario_horario_real))+
  geom_line() 
  )

wg_gold <- wage %>% 
  filter(Year>=1900) %>% 
  left_join(gold, gdp, by = "Year") %>% 
  mutate(wg_in_gold = `Production Workers Hourly Compensation (nominal dollars)`/`New York Market Price (U.S. dollars per fine ounce)`,
         Year = parse_date_time(Year,"y")) %>% 
  na.omit()  
ggplot()+
geom_rect(data= crisis_largas, 
            aes(xmin=crisis_largas$desde,
            xmax=crisis_largas$hasta),
            fill="firebrick", 
            ymin=-Inf,
            ymax=Inf,
            alpha=0.5)+
  geom_line(size=1,data = wg_gold, aes(Year, wg_in_gold))+
  geom_vline(data=crisis_puntuales, aes(xintercept=desde), color = "red", linetype="dashed")+
  geom_vline(xintercept = parse_date_time(1971,"y"),color = "gold")+ #fin del patron oro
  scale_x_datetime(date_breaks = "15 years",labels = date_format("%Y") )+
  theme_minimal()+  
  labs(x="", y="Salario en oro", title="Salario horario Estados Unidos",
       subtitle="Onzas de oro, 1900-2017")+
  theme(text = element_text(size = 20))
ggsave("plots/wg_in_gold_eda.PNG", dpi = 300, width = 10,height = 6)

oro <- full_join(brit_gold,gold_london)

Joining, by = "Year"

names(oro)

[1] "Year"                                                                                  
[2] "British Official Price (British pounds per fine ounce end of year)"                    
[3] "London Market Price (British £ [1718-1949] or U.S. $ [1950-2011] per fine ounce)"

# de http://fx.sauder.ubc.ca/data.html
tc <- read_csv("data/ex_rate.csv")

Parsed with column specification:
cols(
  `MMM YYYY` = col_character(),
  `GBP/USD` = col_double()
)

library(lubridate)
tc <- tc %>% mutate(date = parse_date_time(`MMM YYYY`,"my"),
              Year = year(date)) %>% 
  group_by(Year) %>% 
  summarise(gbp_usd = mean(`GBP/USD`))
# de http://fx.sauder.ubc.ca/etc/USDpages.pdf
tc_1950_1970 <- data_frame(Year=1950:1970, gbp_usd = 0.35714) %>% 
  mutate(gbp_usd = case_when(Year ==1967 ~ 0.36210,
                             Year >1967 ~ 0.41667,
                             TRUE ~ gbp_usd))
tc <- bind_rows(tc_1950_1970,tc)
tc

tail(oro)

oro$`London Market Price (British £ [1718-1949] or U.S. $ [1950-2011] per fine ounce)`

  [1]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
 [13]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
 [25]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
 [37]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
 [49]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
 [61]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
 [73]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
 [85]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
 [97]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[109]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[121]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[133]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[145]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[157]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[169]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[181]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[193]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[205]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[217]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[229]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[241]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[253]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[265]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[277]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[289]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[301]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[313]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[325]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[337]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[349]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[361]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[373]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[385]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[397]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[409]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[421]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[433]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[445]      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA      NA
[457]      NA      NA      NA      NA      NA    4.31    4.26    4.31    4.26    4.25    4.26    4.25
[469]    4.25    4.25    4.25    4.28    4.30    4.29    4.26    4.26    4.27    4.26    4.28    4.26
[481]    4.26    4.26    4.25    4.25    4.27    4.28    4.30    4.31    4.29    4.25    4.28    4.26
[493]    4.25    4.26    4.25    4.26    4.27    4.25    4.25    4.25    4.25    4.30    4.33    4.30
[505]    4.35    4.32    4.37    4.26    4.26    4.31    4.34    4.32    4.38    4.37    4.35    4.35
[517]    4.25    4.24    4.23    4.23    4.23    4.23    4.23    4.23    4.23    4.23    4.25    4.25
[529]    4.24    4.23    4.23    4.23    4.23    4.23    4.23    4.23    4.23    4.23    4.23    4.23
[541]    4.23    4.25    4.24    4.26    4.29    4.31    4.34    4.36    4.36    4.42    4.47    4.52
[553]    4.58    4.63    5.19    5.48    5.76    5.21    4.99    4.36    4.33    4.44    4.36    4.25
[565]    4.25    4.24    4.23    4.23    4.24    4.23    4.23    4.23    4.24    4.24    4.25    4.24
[577]    4.24    4.24    4.24    4.24    4.24    4.24    4.25    4.24    4.24    4.24    4.24    4.24
[589]    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24
[601]    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24
[613]    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24
[625]    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.25    4.25
[637]    4.25    4.24    4.24    4.25    4.25    4.25    4.24    4.25    4.25    4.24    4.25    4.25
[649]    4.24    4.25    4.25    4.25    4.24    4.24    4.24    4.24    4.24    4.24    4.24    4.24
[661]    4.24    4.24    4.50    5.65    5.35    4.67    4.51    4.69    4.27    4.25    4.25    4.25
[673]    4.25    4.25    4.63    5.90    6.24    6.88    7.11    7.01    7.04    7.13    7.72    8.40
[685]    8.40    8.40    8.40    8.40    8.40    8.40    8.40    8.40    8.40   34.71   34.71   34.71
[697]   34.71   34.96   35.01   35.00   34.95   35.10   35.09   35.28   35.15   35.10   35.09   35.09
[709]   35.13   35.17   35.19   38.69   41.09   35.94   40.80   58.16   97.32  159.26  161.02  124.84
[721]  147.71  193.22  306.68  612.56  460.03  375.67  424.35  360.48  317.28  367.51  446.47  437.05
[733]  381.43  383.47  362.18  343.73  359.77  384.01  384.16  387.69  331.10  294.16  278.64  279.03
[745]  271.04  309.68  363.32  409.17  444.45  603.77  695.39  871.96  972.35 1224.53 1571.52 1668.98
[757] 1411.23 1266.40 1160.06 1250.74 1257.12

oro <- oro %>% 
  filter(Year %in% c(1700:2017)) %>% 
  mutate(serie_unificada = case_when(Year < 1718 ~ `British Official Price (British pounds per fine ounce end of year)`,
                                     Year >=1718 ~`London Market Price (British &pound; [1718-1949] or U.S. $ [1950-2011] per fine ounce)`))
## Tengo que pasar todo a libras, desde 1950 al serie esta en dólares
oro <- oro %>% 
  left_join(tc) %>% 
  mutate(serie_unificada = case_when(Year>1950 ~ serie_unificada*gbp_usd,
                                     TRUE ~ serie_unificada))

Joining, by = "Year"

  
ggplot(oro, aes(Year, serie_unificada))+
  geom_line()

gdp_uk <- gdp_uk %>% 
  left_join(oro) %>% 
  mutate(gdp_in_gold = `Nominal GDP (million of pounds)`/serie_unificada)

Joining, by = c("Year", "British Official Price (British pounds per fine ounce end of year)", "London Market Price (British £ [1718-1949] or U.S. $ [1950-2011] per fine ounce)", "serie_unificada", "gbp_usd")

crisis <- gdp_uk %>% 
  filter(Year %in% c(1700:1900)) %>% 
  mutate(crisis =gdp_in_gold) %>% 
  filter(Year %in% c(1794,1803, 1812, 1822,1833,1842,1850, 1858, 1868,1879, 1885, 1893))
gdp_uk %>% 
  filter(Year %in% c(1700:1900)) %>% 
ggplot(., aes(Year, gdp_in_gold))+
  geom_line(size=1)+
  geom_text_repel(data = crisis, aes(Year, crisis,label=Year),nudge_x = 5, nudge_y = -20,force=12,size=4)+
  theme_minimal()+
  labs(y="PBI en oro", x="Año", title= "Producto Bruto Interno Reino Unido", 
       subtitle="Millones de onzas de oro. 1700-1900")+
  theme(text = element_text(size = 20))
ggsave("plots/uk_gdp.png",scale = 1)

Saving 7.29 x 4.5 in image

LS0tCnRpdGxlOiAiRXhwbG9yYXRvcnkgRGF0YSBBbmFseXNpcyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIyMgbG9hZAoKYGBge3Igc2V0dXB9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGx1YnJpZGF0ZSkKbGlicmFyeShmb3JlY2FzdCkKbGlicmFyeShnZ3JlcGVsKQpsaWJyYXJ5KHJ2ZXN0KQpsaWJyYXJ5KHBsb3RseSkKbGlicmFyeSh4dGFibGUpCmBgYAoKCmBgYHtyLCBtZXNzYWdlPUZBTFNFfQpkamEgPC0gcmVhZF9jc3YoImRhdGEvREpBLmNzdiIsc2tpcCA9IDQpCmdvbGQgPC0gcmVhZF9jc3YoImRhdGEvR09MRF8xNzkxLTIwMTguY3N2Iixza2lwID0gMykKaW50ZXJlc3RfcmF0ZSA8LSByZWFkX2NzdigiZGF0YS9JTlRFUkVTVFJBVEVfMTg1Ny0yMDE4LmNzdiIsc2tpcCA9IDEpCnNhcCA8LSByZWFkX2NzdigiZGF0YS9TQVBfMTg3MS0yMDE4LmNzdiIsIHNraXA9MSkKY3BpIDwtIHJlYWRfY3N2KCJkYXRhL1VTQ1BJXzE3NzQtMjAxOC5jc3YiLCBza2lwPTQpCmdkcCA8LSByZWFkX2NzdigiZGF0YS9VU0dEUF8xNzkwLTIwMTguY3N2Iiwgc2tpcD0yKQp3YWdlIDwtIHJlYWRfY3N2KCJkYXRhL1VTV0FHRV8xNzc0LTIwMTguY3N2Iiwgc2tpcD0zKQpnZHBfdWsgPC0gIHJlYWRfY3N2KCJkYXRhL1VLR0RQXzE3MDAtMjAxNy5jc3YiLCBza2lwPTEpCgpicml0X2dvbGQgPC0gcmVhZF9jc3YoImRhdGEvR09MRF9icml0XzEyNTctMTk0NS5jc3YiLCBza2lwPTEpCmdvbGRfbG9uZG9uIDwtIHJlYWRfY3N2KCJkYXRhL0dPTERfbG9uZG9uXzE3MTgtMjAxNy5jc3YiLCBza2lwID0gMSkKYGBgCgoKIyMgRG93biBKb25lcyBBdmcKZWwgZGphIGVzIHVuYSBzZXJpZSBkaWFyaWEsIHRvZGFzIGxhcyBkZW3DoXMgc29uIGFudWFsZXMuCgpgYGB7cn0KZGphIDwtIGRqYSAlPiUgCiAgbXV0YXRlKERhdGUgPSBwYXJzZV9kYXRlX3RpbWUoRGF0ZSxvcmRlcnMgPSAibWR5IikpCgpnZ3Bsb3RseShnZ3Bsb3QoZGphLGFlcyhEYXRlLCBESklBKSkrCiAgZ2VvbV9saW5lKCkpICU+JSAKICBsYXlvdXQobGVnZW5kID0gbGlzdCgKICAgICAgb3JpZW50YXRpb24gPSAiaCIpKQoKc3VtbWFyeShkamEpCmBgYAoKCmBgYHtyfQoKZGphICU+JSAKICBtdXRhdGUoZGlmID0gKERKSUEgLSBsYWcoREpJQSwgZGVmYXVsdCA9IERKSUFbMV0pKS9sYWcoREpJQSwgZGVmYXVsdCA9IERKSUFbMV0pKSAlPiUgCmdncGxvdCguLGFlcyhEYXRlLCBkaWYpKSsKICBnZW9tX3JlY3QoZmlsbD0iZmlyZWJyaWNrIiwgCiAgICAgICAgICAgIHhtaW49cGFyc2VfZGF0ZV90aW1lKCIwMS0wMS0xOTMwIixvcmRlcnMgPSAibWR5IiksCiAgICAgICAgICAgIHhtYXg9cGFyc2VfZGF0ZV90aW1lKCIwMS0wMS0xOTQwIixvcmRlcnMgPSAibWR5IiksCiAgICAgICAgICAgIHltaW49LTEsCiAgICAgICAgICAgIHltYXg9MSwKICAgICAgICAgICAgYWxwaGE9MC41KSsKICAgIGdlb21fbGluZSgpCgpgYGAKCmFybW8gdW5hIGxpc3RhIGRlIGxhcyBjcmlzaXMgY29ub2NpZGFzCgojIENyaXNpcwoKYGBge3J9CnVybCA8LSAiaHR0cHM6Ly93d3cuY2Fwcm9hc2lhLmNvbS8yMDE2LzA0LzEyL2Vjb25vbWljLWNyaXNpcy1zaW5jZS0xOTAwLTIwMTUvIgpjcmlzaXMgPC0gdXJsICU+JQogIHJlYWRfaHRtbCgpICU+JSAKICBodG1sX25vZGVzKGNzcyA9ICd0YWJsZScpICU+JSAKICBodG1sX3RhYmxlKGhlYWRlciA9IFQpCgpjcmlzaXMgPC0gY3Jpc2lzW1sxXV0gJT4lIAogIGZpbHRlcihBZmZlY3RlZCAlaW4lIGMoIlVuaXRlZCBTdGF0ZXMiLCJHbG9iYWwiKSkgJT4lIAogIHNlcGFyYXRlKFBlcmlvZCxjKCJkZXNkZSIsImhhc3RhIiksIiDigJMgIikKCgojZW4gcmVhbGlkYWQgbGFzIHF1ZSB0ZXJtaW5hbiBlbiAicyIgbm8gZHVyYW4gdG9kYSBsYSBkw6ljYWRhLiBMYXMgYWdyZWdvIGEgbWFuby4KICAjIG11dGF0ZShoYXN0YSA9IHBhcnNlX2RhdGVfdGltZShjYXNlX3doZW4oZ3JlcGwoInMiLGRlc2RlKX5hcy5udW1lcmljKHN0cl9leHRyYWN0KGRlc2RlLCJbWzpkaWdpdDpdXSoiKSkrMTAsCiAgIyAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRX4gYXMubnVtZXJpYyhoYXN0YSkpLCJ5IiksCiAgIyAgICAgICAgZGVzZGUgPSBwYXJzZV9kYXRlX3RpbWUoc3RyX2V4dHJhY3QoZGVzZGUsIltbOmRpZ2l0Ol1dKiIpLCJ5IikpCgpjcmlzaXMgPC0gY3Jpc2lzICU+JSAKICBtdXRhdGUoaGFzdGEgPSBwYXJzZV9kYXRlX3RpbWUoY2FzZV93aGVuKGRlc2RlPT0iMTk3MHMifiIxOTc5IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgZGVzZGU9PSIxOTgwcyJ+IjE5ODIiLAogICAgICAgICAgICAgICAgICAgICAgICAgICBkZXNkZSA9PSAiMTk5MHMifiIxOTkxIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRX5oYXN0YSksInkiKSwKICAgICAgICAgZGVzZGUgPSBwYXJzZV9kYXRlX3RpbWUoY2FzZV93aGVuKGRlc2RlPT0iMTk3MHMifiIxOTczIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgZGVzZGU9PSIxOTgwcyJ+IjE5ODEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICBkZXNkZT09IjE5OTBzIn4iMTk5MCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUV+ZGVzZGUpLCJ5IikpCgoKYGBgCgoKYGBge3J9CiMgdGFibGEgPC0gY3Jpc2lzW1sxXV0gJT4lIAojICAgZmlsdGVyKEFmZmVjdGVkICVpbiUgYygiVW5pdGVkIFN0YXRlcyIsIkdsb2JhbCIpKSAlPiUgCiMgICBzZWxlY3QoLVJlZ2lvbiwgLSBBZmZlY3RlZCkgJT4lIAojICAgeHRhYmxlKC4pCgojRW4gbGEgY29uc29sYQojIHByaW50KHRhYmxhLCBpbmNsdWRlLnJvd25hbWVzID0gRikKCmBgYAoKCmBgYHtyfQpjcmlzaXNfbGFyZ2FzIDwtIG5hLm9taXQoY3Jpc2lzKQpjcmlzaXNfcHVudHVhbGVzIDwtIGNyaXNpcyAlPiUgCiAgZmlsdGVyKGlzLm5hKGhhc3RhKSkKCgpkamEgPC0gZGphICU+JSAKICBtdXRhdGUoZGlmID0gKERKSUEgLSBsYWcoREpJQSwgZGVmYXVsdCA9IERKSUFbMV0pKS9sYWcoREpJQSwgZGVmYXVsdCA9IERKSUFbMV0pKSAKZ2dwbG90KCkrCiAgZ2VvbV9yZWN0KGRhdGE9IGNyaXNpc19sYXJnYXMsIAogICAgICAgICAgICBhZXMoeG1pbj1jcmlzaXNfbGFyZ2FzJGRlc2RlLAogICAgICAgICAgICB4bWF4PWNyaXNpc19sYXJnYXMkaGFzdGEpLAogICAgICAgICAgICBmaWxsPSJmaXJlYnJpY2siLCAKICAgICAgICAgICAgeW1pbj0tMSwKICAgICAgICAgICAgeW1heD0xLAogICAgICAgICAgICBhbHBoYT0wLjUpKwogICAgZ2VvbV9saW5lKGRhdGEgPSBkamEsYWVzKERhdGUsIGRpZikpKwogIGdlb21fdmxpbmUoZGF0YT1jcmlzaXNfcHVudHVhbGVzLCBhZXMoeGludGVyY2VwdD1kZXNkZSksIGNvbG9yID0gInJlZCIsIGxpbmV0eXBlPSJkYXNoZWQiKQogIAoKYGBgCgoKRXN0ZSBncsOhZmljbyBtZSBkYSBsYSBzZW5zYWNpw7NuIGRlIHF1ZSB0b2RvIGVzdHV2aWVyYSBjb3JyaWRvIGEgbGEgZGVyZWNoYSAobWlyYW5kbyBsYXMgY3Jpc2lzIHB1bnR1YWxlcyB2cyBsb3MgcGljb3MpCgojIyBHb2xkCgpgYGB7cn0KZ29sZCAlPiUgCiAgZ2dwbG90KC4sIGFlcyhZZWFyLCBgTmV3IFlvcmsgTWFya2V0IFByaWNlIChVLlMuIGRvbGxhcnMgcGVyIGZpbmUgb3VuY2UpYCkpKwogIGdlb21fbGluZShzaXplPTEpKwogIGdlb21fdmxpbmUoeGludGVyY2VwdCA9IDE5NzEsIGNvbG9yID0gInJlZCIpKwogIGdlb21fbGFiZWxfcmVwZWwoZGF0YT1kYXRhX2ZyYW1lKCksYWVzKHg9MTk3MSx5PTEwMDAsbGFiZWw9IkZpbiBkZWwgcGF0csOzbiBvcm8iKSxudWRnZV94ID0gLTUsZm9yY2U9MTAsc2l6ZT03KSsKICB0aGVtZV9taW5pbWFsKCkrCiAgbGFicyh5PSJEw7NsYXJlcyBwb3Igb256YSBkZSBvcm8iLCB4PSJBw7FvIiwgdGl0bGU9IlByZWNpb3MgZGVsIG9ybyBwb3Igb256YSBlbiBlbCBtZXJjYWRvIGRlIE51ZXZhIFlvcmsiKSsKICB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSAyMCkpCgoKZ2dzYXZlKCJwbG90cy9vcm8ucG5nIiwgZHBpPTMwMCwgd2lkdGggPSAxMCwgaGVpZ2h0ID0gNywgc2NhbGU9MSkKYGBgCgoKIyMgaW50ZXJlc3RfcmF0ZQoKCmBgYHtyfQpncmFmIDwtIGludGVyZXN0X3JhdGUgJT4lIAogIGdhdGhlcih0eXBlLHJhdGUsMjo0KSAlPiUgCiAgZ2dwbG90KC4sIGFlcyhZZWFyLHJhdGUsY29sb3I9dHlwZSkpKwogIGdlb21fbGluZSgpKwogIGd1aWRlcyhjb2xvcj1ndWlkZV9sZWdlbmQobnJvdz0yLGJ5cm93PVRSVUUpKSsKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIikKZ2dwbG90bHkoZ3JhZikgJT4lCiAgbGF5b3V0KGxlZ2VuZCA9IGxpc3QoCiAgICAgIG9yaWVudGF0aW9uID0gImgiCiAgICApCiAgKQpgYGAKCi0gTGEgdGFzYSBkZSBsYXJnbyBwbGF6byBlcyB1bmEgc2VyaWUgbXVjaG8gbcOhcyBzdWF2ZSAoZXNvIGVzIHVuIGRhdG8gY29ub2NpZG8gZGUgZmluYW56YXMgbm8/KQotIExvcyBzdXJwbHVzIGZ1bmRzIHRhbWJpw6luIHBhcmVjZW4gc2VyIG3DoXMgdm9sw6F0aWxlcyBoYXN0YSBsb3MgNDAKCgojIyBzYXAKCgpgYGB7cn0Kc2FwICU+JSAKICBzdW1tYXJ5KCkKc2FwICU+JSAKICBnYXRoZXIodHlwZSwgdmFsdWUsMjo0KSAlPiUKICBtdXRhdGUodHlwZT0gY2FzZV93aGVuKHR5cGU9PSJUaGUgUyZQIEluZGV4IEF2ZXJhZ2UgZm9yIEphbnVhcnkifiJUaGUgUyZQIEluZGV4XG5BdmVyYWdlIGZvciBKYW51YXJ5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIHR5cGU9PSJUaGUgQWNjdW11bGF0ZWQgUyZQIEluZGV4IEF2ZXJhZ2UgZm9yIEphbnVhcnkifiJUaGUgQWNjdW11bGF0ZWQgUyZQXG5JbmRleCBBdmVyYWdlIGZvciBKYW51YXJ5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUV+dHlwZSkpICU+JSAKICBnZ3Bsb3QoLixhZXMoWWVhcix2YWx1ZSwgY29sb3I9dHlwZSkpKwogIGdlb21fbGluZSgpKwogIGZhY2V0X2dyaWQodHlwZX4uLHNjYWxlPSJmcmVlIikrCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIsCiAgICAgICAgc3RyaXAudGV4dC55ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gMCkpCgpgYGAKCgoKYGBge3J9CnRzKHNhcCRgQW5udWFsIFlpZWxkYCwgc3RhcnQ9bWluKHNhcCRZZWFyKSwgZnJlcXVlbmN5ID0gMSkgJT4lIAogIG5hLm9taXQoKSAlPiUKICBhdXRvLmFyaW1hKC4pCgpgYGAKCiMjIENQSQoKYGBge3J9CgpjcGkgJT4lIAogIGdncGxvdCguLCBhZXMoWWVhciwgYFUuUy4gQ29uc3VtZXIgUHJpY2UgSW5kZXggKmApKSsKICBnZW9tX2xpbmUoc2l6ZT0xKSsKICBnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSAxOTcxLCBjb2xvciA9ICJyZWQiKSsKICBnZW9tX2xhYmVsX3JlcGVsKGRhdGE9ZGF0YV9mcmFtZSgpLGFlcyh4PTE5NzEseT0xMDAsbGFiZWw9IkZpbiBkZWwgcGF0csOzbiBvcm8iKSxudWRnZV94ID0gLTUsZm9yY2U9MTAsc2l6ZT03KSsKICB0aGVtZV9taW5pbWFsKCkrCiAgbGFicyh5PSJJUEMiLCB4PSJBw7FvIikrCiAgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChzaXplID0gMjApKQoKZ2dzYXZlKCJwbG90cy9jcGlfb3JpZy5wbmciLCBzY2FsZSA9IDEpCmBgYAoKIyMgZ2RwCmBgYHtyfQpnZHAgJT4lIAogIGdncGxvdCguLCBhZXMoWWVhciwgYFJlYWwgR0RQIChtaWxsaW9ucyBvZiAyMDEyIGRvbGxhcnMpYCkpKwogIGdlb21fbGluZShzaXplPTEpKwogICMgZ2VvbV92bGluZSh4aW50ZXJjZXB0ID0gMTk3MSwgY29sb3IgPSAicmVkIikrCiAgIyBnZW9tX2xhYmVsX3JlcGVsKGRhdGE9ZGF0YV9mcmFtZSgpLGFlcyh4PTE5NzEseT0xMDAsbGFiZWw9IkZpbiBkZWwgcGF0csOzbiBvcm8iKSxudWRnZV94ID0gLTUsZm9yY2U9MTAsc2l6ZT03KSsKICB0aGVtZV9taW5pbWFsKCkrCiAgbGFicyh5PSJSZWFsIEdEUCIsIHg9IkHDsW8iKSsKICB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSAzMCkpCgpnZ3NhdmUoInBsb3RzL1BCSS5wbmciLCBzY2FsZSA9IDEpCgpgYGAKCgoKbWUgaW50ZXJlc2EgdmVyIGVsIFBCSSBub3JtYWxpemFkbyBwb3IgZWwgY3JlY2ltaWVudG8gcG9ibGFjaW9uYWwsIHkgYWRlbcOhcyBub3JtYWxpemFkbyBwb3IgbGEgY2FudGlkYWQgZGUgb3JvIHF1ZSBwdWVkZSBjb21wcmFyIChlbiBsdWdhciBkZSBub3JtYWxpemFyIHBvciBlbCBDUEkpOgoKYGBge3J9CgoKZ2RwIDwtIGxlZnRfam9pbihnb2xkLCBnZHAsIGJ5ID0gIlllYXIiKSAlPiUgCiAgbXV0YXRlKGdkcF9pbl9nb2xkID0gYE5vbWluYWwgR0RQIHBlciBjYXBpdGEgKGN1cnJlbnQgZG9sbGFycylgL2BOZXcgWW9yayBNYXJrZXQgUHJpY2UgKFUuUy4gZG9sbGFycyBwZXIgZmluZSBvdW5jZSlgLAogICAgICAgICBZZWFyID0gcGFyc2VfZGF0ZV90aW1lKFllYXIsInkiKSkgCiAgCmdncGxvdGx5KGdncGxvdChnZHAsYWVzKFllYXIsZ2RwX2luX2dvbGQpKSsKICBnZW9tX2xpbmUoKSkKYGBgCgpBIHBhcnRpciBkZWwgMTkwMCBwYXJlY2llcmEgcXVlIHNlIGFybWFuIDMgY2ljbG9zIG11eSBsYXJnb3MKCi0gMTkxNC0xOTMzCi0gMTkzMy0xOTgwCi0gMTk4MC0yMDEyCgoKQWdyZWdhbmRvIHJlZmVyZW5jaWFzIGhpc3TDs3JpY2FzIGRlIGxhcyBjcmlzaXMgY29ub2NpZGFzCgpgYGB7cn0KbGlicmFyeShzY2FsZXMpICMgdG8gYWNjZXNzIGJyZWFrcy9mb3JtYXR0aW5nIGZ1bmN0aW9ucwpnZ3Bsb3QoKSsKZ2VvbV9yZWN0KGRhdGE9IGNyaXNpc19sYXJnYXMsIAogICAgICAgICAgICBhZXMoeG1pbj1jcmlzaXNfbGFyZ2FzJGRlc2RlLAogICAgICAgICAgICB4bWF4PWNyaXNpc19sYXJnYXMkaGFzdGEpLAogICAgICAgICAgICBmaWxsPSJmaXJlYnJpY2siLCAKICAgICAgICAgICAgeW1pbj0tSW5mLAogICAgICAgICAgICB5bWF4PUluZiwKICAgICAgICAgICAgYWxwaGE9MC41KSsKICBnZW9tX2xpbmUoc2l6ZT0xLAogICAgZGF0YSA9IGdkcCAlPiUgCiAgICAgICAgICAgICAgZmlsdGVyKFllYXI+cGFyc2VfZGF0ZV90aW1lKDE5MDAsInkiKSkKICAgICAgICAgICAgLGFlcyhZZWFyLCBnZHBfaW5fZ29sZCkpKwogIGdlb21fdmxpbmUoZGF0YT1jcmlzaXNfcHVudHVhbGVzLCBhZXMoeGludGVyY2VwdD1kZXNkZSksIGNvbG9yID0gInJlZCIsIGxpbmV0eXBlPSJkYXNoZWQiKSsKICBnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSBwYXJzZV9kYXRlX3RpbWUoMTk3MSwieSIpLGNvbG9yID0gImdvbGQiKSsgI2ZpbiBkZWwgcGF0cm9uIG9ybwogIHNjYWxlX3hfZGF0ZXRpbWUoZGF0ZV9icmVha3MgPSAiMTUgeWVhcnMiLGxhYmVscyA9IGRhdGVfZm9ybWF0KCIlWSIpICkrICAKICB0aGVtZV9taW5pbWFsKCkrCiAgbGFicyh4PSIiLCB5PSJQQkkgZW4gb3JvIiwgdGl0bGU9IlBCSSBFc3RhZG9zIFVuaWRvcyIsCiAgICAgICBzdWJ0aXRsZT0gIk1pbGxvbmVzIGRlIG9uemFzIGRlIG9ybywgMTkwMC0yMDE3IikrCiAgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChzaXplID0gMjApKQoKZ2dzYXZlKCJwbG90cy9nZHBfaW5fZ29sZF9lZGEuUE5HIiwgZHBpID0gMzAwLCB3aWR0aCA9IDEwLGhlaWdodCA9IDYpCmBgYAoKTGEgZ3VlcnJhIGRlIHNlc2VzacOzbiBkZSBFRVVVIGZ1w6kgZW50cmUgZWwgMTIgZGUgYWJyaWwgZGUgMTg2MSB5IGVsIDkgZGUgYWJyaWwgZGUgMTg2NSAKCkEgcGFydGlyIGRlIGFow60gZWwgcGJpIGVuIG9ybyBjcmVjZSBoYXN0YSBlbCBmaW4gZGVsIHBhdHJvbiBvcm8uCgojIyB3YWdlCgpgYGB7cn0Kd2FnZSAlPiUgCiAgc3VtbWFyeSgpCmBgYAoKUG9kZW1vcyBkZWZsYWN0YXIgZWwgc2FsYXJpbyBob3JhcmlvIHBvciBlbCBDUEkKCmBgYHtyfQpnZ3Bsb3RseSgKd2FnZSAlPiUgCiAgbGVmdF9qb2luKGNwaSxieT0iWWVhciIpICU+JSAKICBuYS5vbWl0KCkgJT4lIAogIG11dGF0ZShzYWxhcmlvX2hvcmFyaW9fcmVhbCA9IGBQcm9kdWN0aW9uIFdvcmtlcnMgSG91cmx5IENvbXBlbnNhdGlvbiAobm9taW5hbCBkb2xsYXJzKWAvYFUuUy4gQ29uc3VtZXIgUHJpY2UgSW5kZXggKmApICU+JSAKICBnZ3Bsb3QoLixhZXMoWWVhcixzYWxhcmlvX2hvcmFyaW9fcmVhbCkpKwogIGdlb21fbGluZSgpIAogICkKYGBgCgoKRWwgc2FsYXJpbyByZWFsIHRpZW5lIHVuYSB0ZW5kZW5jaWEgY3JlY2llbnRlIGhhc3RhIGVsIDc4JyB5IGFsbMOtIHNlIGVzdGFuY2EgaGFzdGEgZWwgMjAxMwoKCgpgYGB7cn0Kd2dfZ29sZCA8LSB3YWdlICU+JSAKICBmaWx0ZXIoWWVhcj49MTkwMCkgJT4lIAogIGxlZnRfam9pbihnb2xkLCBnZHAsIGJ5ID0gIlllYXIiKSAlPiUgCiAgbXV0YXRlKHdnX2luX2dvbGQgPSBgUHJvZHVjdGlvbiBXb3JrZXJzIEhvdXJseSBDb21wZW5zYXRpb24gKG5vbWluYWwgZG9sbGFycylgL2BOZXcgWW9yayBNYXJrZXQgUHJpY2UgKFUuUy4gZG9sbGFycyBwZXIgZmluZSBvdW5jZSlgLAogICAgICAgICBZZWFyID0gcGFyc2VfZGF0ZV90aW1lKFllYXIsInkiKSkgJT4lIAogIG5hLm9taXQoKSAgCmdncGxvdCgpKwpnZW9tX3JlY3QoZGF0YT0gY3Jpc2lzX2xhcmdhcywgCiAgICAgICAgICAgIGFlcyh4bWluPWNyaXNpc19sYXJnYXMkZGVzZGUsCiAgICAgICAgICAgIHhtYXg9Y3Jpc2lzX2xhcmdhcyRoYXN0YSksCiAgICAgICAgICAgIGZpbGw9ImZpcmVicmljayIsIAogICAgICAgICAgICB5bWluPS1JbmYsCiAgICAgICAgICAgIHltYXg9SW5mLAogICAgICAgICAgICBhbHBoYT0wLjUpKwogIGdlb21fbGluZShzaXplPTEsZGF0YSA9IHdnX2dvbGQsIGFlcyhZZWFyLCB3Z19pbl9nb2xkKSkrCiAgZ2VvbV92bGluZShkYXRhPWNyaXNpc19wdW50dWFsZXMsIGFlcyh4aW50ZXJjZXB0PWRlc2RlKSwgY29sb3IgPSAicmVkIiwgbGluZXR5cGU9ImRhc2hlZCIpKwogIGdlb21fdmxpbmUoeGludGVyY2VwdCA9IHBhcnNlX2RhdGVfdGltZSgxOTcxLCJ5IiksY29sb3IgPSAiZ29sZCIpKyAjZmluIGRlbCBwYXRyb24gb3JvCiAgc2NhbGVfeF9kYXRldGltZShkYXRlX2JyZWFrcyA9ICIxNSB5ZWFycyIsbGFiZWxzID0gZGF0ZV9mb3JtYXQoIiVZIikgKSsKICB0aGVtZV9taW5pbWFsKCkrICAKICBsYWJzKHg9IiIsIHk9IlNhbGFyaW8gZW4gb3JvIiwgdGl0bGU9IlNhbGFyaW8gaG9yYXJpbyBFc3RhZG9zIFVuaWRvcyIsCiAgICAgICBzdWJ0aXRsZT0iT256YXMgZGUgb3JvLCAxOTAwLTIwMTciKSsKICB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSAyMCkpCgoKZ2dzYXZlKCJwbG90cy93Z19pbl9nb2xkX2VkYS5QTkciLCBkcGkgPSAzMDAsIHdpZHRoID0gMTAsaGVpZ2h0ID0gNikKCmBgYAoKU2UgdmVuIGxvcyBtaXNtb3MgdHJlcyBwZXLDrW9kb3MuIFBlcm8gYSBkaWZlcmVuY2lhIGRlbCBHRFAsIGVsIHBlcsOtb2RvIDE5ODAtMjAxMiB0aWVuZSB1biBuaXZlbCBtw6FzIGJham8gcXVlIGVsIGFudGVyaW9yLiAKIAoKwr8gU2kgcXVpc2llcmFtb3MgY29tcGFyYXIgaW5ncnNvcyBjb24gYWxnw7puIHJldmVudWUgdGVuZHLDrWFtb3MgdXNhciBTJlAgbyBESkE/CgoKCgoKIyMjIyBVSwoKYGBge3J9Cm9ybyA8LSBmdWxsX2pvaW4oYnJpdF9nb2xkLGdvbGRfbG9uZG9uKQoKbmFtZXMob3JvKQoKYGBgCgoKYGBge3J9CgojIGRlIGh0dHA6Ly9meC5zYXVkZXIudWJjLmNhL2RhdGEuaHRtbAp0YyA8LSByZWFkX2NzdigiZGF0YS9leF9yYXRlLmNzdiIpCgpsaWJyYXJ5KGx1YnJpZGF0ZSkKCnRjIDwtIHRjICU+JSBtdXRhdGUoZGF0ZSA9IHBhcnNlX2RhdGVfdGltZShgTU1NIFlZWVlgLCJteSIpLAogICAgICAgICAgICAgIFllYXIgPSB5ZWFyKGRhdGUpKSAlPiUgCiAgZ3JvdXBfYnkoWWVhcikgJT4lIAogIHN1bW1hcmlzZShnYnBfdXNkID0gbWVhbihgR0JQL1VTRGApKQoKCiMgZGUgaHR0cDovL2Z4LnNhdWRlci51YmMuY2EvZXRjL1VTRHBhZ2VzLnBkZgoKdGNfMTk1MF8xOTcwIDwtIGRhdGFfZnJhbWUoWWVhcj0xOTUwOjE5NzAsIGdicF91c2QgPSAwLjM1NzE0KSAlPiUgCiAgbXV0YXRlKGdicF91c2QgPSBjYXNlX3doZW4oWWVhciA9PTE5NjcgfiAwLjM2MjEwLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIFllYXIgPjE5NjcgfiAwLjQxNjY3LAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiBnYnBfdXNkKSkKCnRjIDwtIGJpbmRfcm93cyh0Y18xOTUwXzE5NzAsdGMpCnRjCmBgYAoKCgpleHByZXNvIGFsIG9ybyBzaWVtcHJlIGVuIHBvdW5kcwoKYGBge3J9CnRhaWwob3JvKQoKCm9ybyRgTG9uZG9uIE1hcmtldCBQcmljZSAoQnJpdGlzaCAmcG91bmQ7IFsxNzE4LTE5NDldIG9yIFUuUy4gJCBbMTk1MC0yMDExXSBwZXIgZmluZSBvdW5jZSlgCgpvcm8gPC0gb3JvICU+JSAKICBmaWx0ZXIoWWVhciAlaW4lIGMoMTcwMDoyMDE3KSkgJT4lIAogIG11dGF0ZShzZXJpZV91bmlmaWNhZGEgPSBjYXNlX3doZW4oWWVhciA8IDE3MTggfiBgQnJpdGlzaCBPZmZpY2lhbCBQcmljZSAoQnJpdGlzaCBwb3VuZHMgcGVyIGZpbmUgb3VuY2UgZW5kIG9mIHllYXIpYCwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFllYXIgPj0xNzE4IH5gTG9uZG9uIE1hcmtldCBQcmljZSAoQnJpdGlzaCAmcG91bmQ7IFsxNzE4LTE5NDldIG9yIFUuUy4gJCBbMTk1MC0yMDExXSBwZXIgZmluZSBvdW5jZSlgKSkKCiMjIFRlbmdvIHF1ZSBwYXNhciB0b2RvIGEgbGlicmFzLCBkZXNkZSAxOTUwIGFsIHNlcmllIGVzdGEgZW4gZMOzbGFyZXMKCm9ybyA8LSBvcm8gJT4lIAogIGxlZnRfam9pbih0YykgJT4lIAogIG11dGF0ZShzZXJpZV91bmlmaWNhZGEgPSBjYXNlX3doZW4oWWVhcj4xOTUwIH4gc2VyaWVfdW5pZmljYWRhKmdicF91c2QsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUUlVFIH4gc2VyaWVfdW5pZmljYWRhKSkKICAKZ2dwbG90KG9ybywgYWVzKFllYXIsIHNlcmllX3VuaWZpY2FkYSkpKwogIGdlb21fbGluZSgpCgpgYGAKCgojIyBQQkkgdWsgZW4gb3JvCgoKYGBge3J9CgpnZHBfdWsgPC0gZ2RwX3VrICU+JSAKICBsZWZ0X2pvaW4ob3JvKSAlPiUgCiAgbXV0YXRlKGdkcF9pbl9nb2xkID0gYE5vbWluYWwgR0RQIChtaWxsaW9uIG9mIHBvdW5kcylgL3NlcmllX3VuaWZpY2FkYSkKCgpjcmlzaXMgPC0gZ2RwX3VrICU+JSAKICBmaWx0ZXIoWWVhciAlaW4lIGMoMTcwMDoxOTAwKSkgJT4lIAogIG11dGF0ZShjcmlzaXMgPWdkcF9pbl9nb2xkKSAlPiUgCiAgZmlsdGVyKFllYXIgJWluJSBjKDE3OTQsMTgwMywgMTgxMiwgMTgyMiwxODMzLDE4NDIsMTg1MCwgMTg1OCwgMTg2OCwxODc5LCAxODg1LCAxODkzKSkKCmdkcF91ayAlPiUgCiAgZmlsdGVyKFllYXIgJWluJSBjKDE3MDA6MTkwMCkpICU+JSAKZ2dwbG90KC4sIGFlcyhZZWFyLCBnZHBfaW5fZ29sZCkpKwogIGdlb21fbGluZShzaXplPTEpKwogIGdlb21fdGV4dF9yZXBlbChkYXRhID0gY3Jpc2lzLCBhZXMoWWVhciwgY3Jpc2lzLGxhYmVsPVllYXIpLG51ZGdlX3ggPSA1LCBudWRnZV95ID0gLTIwLGZvcmNlPTEyLHNpemU9NCkrCiAgdGhlbWVfbWluaW1hbCgpKwogIGxhYnMoeT0iUEJJIGVuIG9ybyIsIHg9IkHDsW8iLCB0aXRsZT0gIlByb2R1Y3RvIEJydXRvIEludGVybm8gUmVpbm8gVW5pZG8iLCAKICAgICAgIHN1YnRpdGxlPSJNaWxsb25lcyBkZSBvbnphcyBkZSBvcm8uIDE3MDAtMTkwMCIpKwogIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDIwKSkKCgpnZ3NhdmUoInBsb3RzL3VrX2dkcC5wbmciLHNjYWxlID0gMSkKYGBgCgoKYGBge3J9CmdkcF91ayAlPiUgCiAgd3JpdGVfY3N2KCJkYXRhL2dkcF91a19nb2xkLmNzdiIpCmBgYAoKCgoKCgoK